サンプル[20]
KIsearch2000(エンジンWebで検索し自動取込み)ver0.3(2000/09/10)
１．概略
本サンプルは、2000/5/27、Tさんから来たメ−ルの返事。
会員のみが見える元ファイルを１００物件ずつダウンロードします。６個のcsvファイルになっ
ているのですが、
これらのファイルを最初のファイルだけは何もせず そのままで、２番目のファイル
〜６番目のファイルのデータの部分である４行目から１０３行目だけを切り取り最初
のファイルに統合する作業の自動化は可能でしょうか？？
上記ファイルはCGIファイルなので、画面をコピ−して貼り付ける以外よい方法は
ないと思う。しかし、Excel2000ではWebペ−ジを取り込めるので、抽出した各ペ−ジ
を各シ−トに取り込めばこの作業の自動化は可能のはずです。
取り合えず、サ−チエンジンでもっとも有名なヤフ−から取り込めるかマクロ
を作って見ました。簡単に出来たので、そちらの会員制のWebに対しても出来る
はずです。ここに掲載した「KIsearch2000」を試して見て気に入ったらメ−ルを
下さい。有料で貴方様専用のマクロを作成してあげます。
なお、マクロソ−スを変更して使用したい方は、「VBA便利帳まるごとCD」の
付録にソ−スを公開しています。
注意：このマクロは人様のHPをかってにコピ−しExcelへ貼り付け、かつバナ−広告等を
カットする操作を自動で行ないます。各HPには著作権があります。その著作権を侵害する
ような使用は絶対しないよう十分注意して下さい。
追記：(前記の方は業者のサイトにページ毎にCSVダウンロードサービスが
あり自動取込は不要との回答だった。ただしCSVファイル統合は依頼されたので
作ってあげた)。
本サンプルに関し、2000/9/6にMさんから新しいメ−ルが着ました。
初めまして、***と申します
貴サイトのKIsearch2000 ヤフ−から抽出し自動貼り付けを拝見させていただきました。
有料にて検索対象のサーチエンジンを追加可能でしょうか？有料の場合いかほどになるでしょう
goo・excite・lycos・infoseek
今回このメールに対応すべくバージョンアップしました(最近本サンプルの雑誌掲載及び
CRROM収録の承諾依頼が2件きており、私本人は遊び半分で作ったマクロあるが以外と
人気があるようだ！）。料金にていては通信費程度
（私の場合通信費と言うとBiglobe2000円・タイタス6000円で計8000円）を頂こうと
思っていたが、実はexciteの取込が出来ませんでした。これはExcelの「ファイルを開く」
で行なっても、、「データ→外部データ取込」で行なってもダメだった。excite側に
ガードが掛かっていると思われる。
したがって要求に答えられなかったので料金は
いりません。（本心は「VBA便利帳まるごとCD」に本マクロのソースを公開して
いるのでCDROMを2000円又は5000円で買って頂けると嬉しい）
なお、exciteの代わりにiNET Gaideを入れました。
２．このソフトの使用方法
[1].KIsearch2000を開くと上記が表示されるので、検索するエンジンサイトを指定する。
[2].検索するキーワード文字を入力。
[3].一回の検索（１シ−トへ貼り付ける）数は25/50/75/100で指定した個数となる。
[4].検索の総数は、検索を何ペ−ジ行うか指定で決まる(Excel側ではシ−ト数）。
[5].Excelの表示形式は下記の３種類を指定できる。
(a).各シ−トへ貼り付け→ Ｗｅｂ画面をコピ−して貼り付けた場合と同じ。
(b).抽出デ−タのみ表示→ 図形を消去しすると共に、基本的にはデ−タ以外をカット。
(c).１シ−トへまとめる→ 上記の数シ−トまとめて1シ−トにする。
この図は(a)のケ−スを示す
３．ダウンロード
ここをクリックでダウンロ−ド(52kb)
このファイルはＬＺＨ形式の圧縮ファイルです。解凍して使用して下さい
（マクロは「McAfee VirusScan 4.0.3a」で2000/09/10ウイルス無しチェック済み）
４．その他
[1]このプログラムはExcelVBAで作成しています。Excelの入っていないＰＣでは使用不可。
[2]Excel2000で実行出来ます（Exdel95/Excel97は実行不可）
[3]シート上のリンクデ−タ以外を削除していましが、各エンジン毎に内容を読み取り
文字を判断して行を削除しています。したがって記載内容が変更になった場合は
削除出来ないケースがあります。（このような場合メールを頂けばバージョンアップします）
[4]このプログラムはフリーウェアであり、本マクロの使用に起因するいかなる
事態も責任を負いません。使用者の責任で活用して下さい。
目次へ戻る